home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Complete Mac Interactive / Macworld Complete Mac Interactive CD)(1994).iso / The Best of BMUG / Business / Home / Home Finance II 1.2 / Home Finance II 1.2.rsrc / LENS_129_Transaction Control (Credit) < prev    next >
Encoding:
Text File  |  1994-04-20  |  2.4 KB  |  92 lines
  1. ItemType: WIND
  2. Rect: 130,256,510,386
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. Name: Transaction Control (Credit)
  7. Script: if objvalue = "open" then¬  global wdtempdate¬  wsset wdname,"1",KeyFilter,OnlyMath¬  wsset wdname,"2",KeyFilter,OnlyMath¬else if objno = "1" then¬  put wsget(wdname,"1",text) into wdtempdate¬  convert wdtempdate to short date¬  wsset wdname,"1",text,wdtempdate¬end if
  8. Params: i1_Text¬i2_Text¬i3_Text¬i3_Selection¬i4_Text
  9. Result: i1_Text¬i2_Text¬i3_SelectionText¬i4_Text
  10.  
  11. ItemType: TEXT
  12. Rect: 124,5,197,22
  13. TextFont: Geneva
  14. TextSize: 10
  15. Name: DATE
  16. LockText: FALSE
  17. TextStyle: Bold
  18. TextAlign: Right
  19. KeyFilter: OnlyMath
  20.  
  21. ItemType: TEXT
  22. Rect: 124,32,197,49
  23. TextFont: Geneva
  24. TextSize: 10
  25. Name: Ammount
  26. LockText: FALSE
  27. TextStyle: Bold
  28. TextAlign: Right
  29. KeyFilter: OnlyMath
  30. Script: put wsget(wdname,2,text) into thisamm¬set numberformat to "0.00"¬put thisamm/1 into thisamm¬wsset wdname,"2",text,thisamm¬set numberformat to "0"
  31.  
  32. ItemType: POP
  33. Rect: 300,33,319,48
  34. TextFont: Geneva
  35. TextSize: 10
  36. Name: TransType
  37.  
  38. ItemType: TEXT
  39. Rect: 80,60,367,90
  40. TextFont: Geneva
  41. TextSize: 10
  42. Name: Description
  43. LockText: FALSE
  44. TextStyle: Bold
  45.  
  46. ItemType: PUSH
  47. Rect: 291,103,363,120
  48. TextFont: Geneva
  49. TextSize: 10
  50. Name: OK
  51. DefaultItem: TRUE
  52. Script: put wsget(wdname,1,text) into wsthedate¬put wsget(wdname,2,text) into wstheamm¬put wsget(wdname,4,text) into wsthedesc¬if wsthedate is not a date then¬  hide window wdname¬  beep¬  answer "Invalid date entered !"¬  show window wdname¬else if checkdate(wsthedate) <> true then¬  hide window wdname¬  beep¬  answer "Date not valid for this statement !"¬  show window wdname¬else if wstheamm < 0.01 then¬  hide window wdname¬  beep¬  answer "Invalid ammount entered !"¬  show window wdname¬else if wsthedesc = "" then¬  hide window wdname¬  beep¬  answer "Enter a description !"¬  show window wdname¬else¬  wssend wdname,0,close¬end if¬
  53.  
  54. ItemType: PUSH
  55. Rect: 194,103,274,120
  56. TextFont: Geneva
  57. TextSize: 10
  58. Name: Cancel
  59. CancelItem: TRUE
  60. AutoClose: TRUE
  61.  
  62. ItemType: TEXT
  63. Rect: 208,34,298,47
  64. TextFont: Geneva
  65. TextSize: 10
  66. Name: TheTrans
  67. Text: Transaction Type:
  68.  
  69. ItemType: TEXT
  70. Rect: 9,61,73,74
  71. TextFont: Geneva
  72. TextSize: 10
  73. Name: TheDescription
  74. Text: Description:
  75.  
  76. ItemType: TEXT
  77. Rect: 8,7,106,20
  78. TextFont: Geneva
  79. TextSize: 10
  80. Name: TheDate
  81. Text: Date of transaction:
  82.  
  83. ItemType: TEXT
  84. Rect: 8,34,122,47
  85. TextFont: Geneva
  86. TextSize: 10
  87. Name: TypeText
  88. Text: Amount of Transaction:
  89.  
  90. ItemType: PICT
  91. Rect: 8,83,49,126
  92. Name: Cath SW Logo 2